VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ResultPrimitive"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit


Public Sub setNotification(notifier As Object)
Set gNotifier = notifier
End Sub
Public Sub primitiveExpect(result As Boolean, actual As Variant, expected As Variant, tagMessage As String, fullDescription As String)
gNotifier.testResult result, actual, expected, tagMessage, fullDescription
End Sub

Public Sub primitiveAssert(result As Boolean, actual As Variant, expected As Variant, tagMessage As String, fullDescription As String)
Me.primitiveExpect result, actual, expected, tagMessage, fullDescription
If Not result Then
    Err.Raise 1001, , "VBUnit assert termination"
End If
End Sub

